﻿Public Class Aventura
    'Propiedades:
    Private idAventura As Integer
    Private nombreAventura As String
    Private sistema As Integer
    Private master As String
    '   Private adapAventura As MySqlDataAdapter

    'Constructor
    Public Sub New(ByVal idAventura As Integer, _
                    ByVal nombreAventura As String, _
                    ByVal sistema As Integer, _
                    ByVal master As String)
        MyBase.New()
        Me.idAventura = idAventura
        Me.nombreAventura = nombreAventura
        Me.sistema = sistema
        Me.master = master
    End Sub

    'Métodos:

    '________SETTERS_________

    Public Sub setNombreAventura(ByVal nombreAventura As String)
        Me.nombreAventura = nombreAventura
    End Sub

    Public Sub setSistema(ByVal sistema As Integer)
        Me.sistema = sistema
    End Sub

    Public Sub setMaster(ByVal master As String)
        Me.master = master
    End Sub

    '________GETTERS_________

    Public Function getNombreAventura() As String
        Return Me.nombreAventura
    End Function

    Public Function getSistema() As Integer
        Return Me.sistema
    End Function

    Public Function getMaster() As String
        Return Me.master
    End Function

    '_______GENÉRICOS________


End Class
